home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / InOutBoard.lha / In-Out-Board / Maxon_Bas_Sources / Port_Eingang_.bas < prev   
Encoding:
BASIC Source File  |  1996-02-21  |  1.8 KB  |  70 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Eingang_.bas                         *
  4. '*                                                                        *
  5. '*                      © 1996 Andreas Heinrich                           *
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm liest den Wert an Port 2 ein und legt
  11. '                             ihn in N ab.
  12. '
  13. '
  14. '**************************************************************************
  15. '
  16. '  A=Port selektieren
  17. '  N=Wert aus diesem Port lesen
  18. '
  19. '
  20. A=2 : REM          Eingabeport 2 wird ausgewählt -> IC 2
  21. '
  22. GOSUB INIT : REM   Nach dem Einschalten einmal aufrufen
  23. '
  24. '**************************** Hauptprogramm *******************************
  25. '
  26. '
  27. '
  28. ANFANG:
  29. CLS
  30. LOCATE 2,1
  31. PRINT "   Wert an Eingangsport = ";
  32. '
  33. GOSUB LESEN
  34. PRINT N
  35. PRINT
  36. PRINT "   Noch einmal? Drücke die Taste > 1 <."
  37. PRINT
  38. PRINT "   Oder Abbruch mit Taste > 0 <."
  39. PRINT
  40. '
  41. DO
  42. SLEEP
  43. a$=INKEY$
  44.  SELECT CASE a$
  45.    CASE="1" : GOTO ANFANG : REM          Und noch einmal
  46.    CASE="0" : PRINT "Ende" : END : REM   Programm beenden
  47.  END SELECT
  48. LOOP
  49. '
  50. '
  51. '************************** Unterprogramme ********************************
  52. '
  53. LESEN:
  54. '
  55. POKE 12575489&,0 :     REM  Port als Eingang schalten
  56. POKE 12570624&,248+A : REM  Adresse A selektieren
  57. N=PEEK(12574977&) :    REM  Wert N einlesen
  58. POKE 12570624&,255 :   REM  Ready LED einschalten
  59. '
  60. RETURN
  61. '
  62. INIT:
  63. '
  64. POKE 12571136&,199 : REM    Busy,P-aus und SEL=Bitmuster Ausgabe
  65. POKE 12570624&,255 : REM    Adresse 7 selektieren (Ready LED ein)
  66. POKE 12575489&,0 :   REM    Port als Eingang schalten
  67. '
  68. RETURN
  69. '
  70.